home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / [A_Bit_Meg1759946212004.psc / Form1.frm < prev    next >
Text File  |  2004-06-21  |  4KB  |  114 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Converter - By Leonardo Fucci"
  4.    ClientHeight    =   3945
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   7050
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3945
  10.    ScaleWidth      =   7050
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Convert !"
  14.       Height          =   495
  15.       Left            =   5640
  16.       TabIndex        =   4
  17.       Top             =   3360
  18.       Width           =   1215
  19.    End
  20.    Begin VB.ListBox List1 
  21.       Height          =   2400
  22.       Left            =   120
  23.       TabIndex        =   3
  24.       Top             =   840
  25.       Width           =   6735
  26.    End
  27.    Begin VB.ComboBox Combo1 
  28.       Height          =   315
  29.       ItemData        =   "Form1.frx":0000
  30.       Left            =   5280
  31.       List            =   "Form1.frx":001C
  32.       Style           =   2  'Dropdown List
  33.       TabIndex        =   2
  34.       Top             =   360
  35.       Width           =   1575
  36.    End
  37.    Begin VB.TextBox Text1 
  38.       Height          =   315
  39.       Left            =   120
  40.       TabIndex        =   1
  41.       Text            =   "1024"
  42.       Top             =   360
  43.       Width           =   5055
  44.    End
  45.    Begin VB.Label Label2 
  46.       Caption         =   "This is a Very Simple and Easy tool... not to cool at all !"
  47.       Height          =   375
  48.       Left            =   120
  49.       TabIndex        =   5
  50.       Top             =   3420
  51.       Width           =   5415
  52.    End
  53.    Begin VB.Label Label1 
  54.       Caption         =   "Value - Size:"
  55.       Height          =   315
  56.       Left            =   120
  57.       TabIndex        =   0
  58.       Top             =   120
  59.       Width           =   6795
  60.    End
  61. End
  62. Attribute VB_Name = "Form1"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_PredeclaredId = True
  66. Attribute VB_Exposed = False
  67. Option Explicit
  68.  
  69. Private Sub Command1_Click()
  70. Dim Bits As Single
  71.  
  72. MsgBox "Do you Know?" & vbNewLine & "If you want to join All the Bites of the internet, you gonna need a disk of 8 HexaBytes.", vbInformation
  73. MsgBox "Get an Idea, 8 Hexabytes are... 8.796.093.000.000.000.000 MegaBytes... Is to much.", vbInformation
  74.  
  75.  
  76.  
  77.     List1.Clear
  78.     
  79.     'Fist I pass it to Bits
  80.     Select Case Combo1.ListIndex
  81.         Case Is = 0
  82.             Bits = Text1.Text * 1
  83.         Case Is = 1
  84.             Bits = Text1.Text * 8
  85.         Case Is = 2
  86.             Bits = Text1.Text * 8 * 1024
  87.         Case Is = 3
  88.             Bits = Text1.Text * 8 * 1024 * 1024
  89.         Case Is = 4
  90.             Bits = Text1.Text * 8 * 1024 * 1024 * 1024
  91.         Case Is = 5
  92.             Bits = Text1.Text * 8 * 1024 * 1024 * 1024 * 1024
  93.         Case Is = 6
  94.             Bits = Text1.Text * 8 * 1024 * 1024 * 1024 * 1024 * 1024
  95.         Case Is = 7
  96.             Bits = Text1.Text * 8 * 1024 * 1024 * 1024 * 1024 * 1024 * 1024
  97.     End Select
  98.     
  99.     
  100.     List1.AddItem "In Bites: " & Bits
  101.     List1.AddItem "In Bytes: " & Bits / 8
  102.     List1.AddItem "In KiloBytes: " & Bits / 8 / 1024
  103.     List1.AddItem "In MegaBytes: " & Bits / 8 / 1024 / 1024
  104.     List1.AddItem "In GigaBytes: " & Bits / 8 / 1024 / 1024 / 1024
  105.     List1.AddItem "In TeraBytes: " & Bits / 8 / 1024 / 1024 / 1024 / 1024
  106.     List1.AddItem "In PetaBytes: " & Bits / 8 / 1024 / 1024 / 1024 / 1024 / 1024
  107.     List1.AddItem "In HexaBytes: " & Bits / 8 / 1024 / 1024 / 1024 / 1024 / 1024 / 1024
  108.     
  109.     MsgBox "Please Visit MeetFindeR.ar.tc" & vbNewLine & " A programm Made IN Visual 6 for Chat and Meet PEoPlE!", vbInformation
  110.     Shell "explorer.exe http://www.meetfinder.ar.tc", vbMinimizedFocus
  111.     
  112.     
  113. End Sub
  114.